home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / sozo2 / scsrc20.lzh / HCC.LZH / SUBS_TOS.S < prev    next >
Encoding:
Text File  |  1991-02-22  |  541 b   |  50 lines
  1.     .globl _lclr
  2.     .text
  3. _lclr:
  4.     link    a6,#0
  5.  
  6.     move.l    8(a6),a0
  7.     move    12(a6),d0
  8.     bra    L5
  9. L4:
  10.     clr.l    (a0)+
  11. L5:
  12.     dbf    d0,L4
  13.  
  14.     unlk    a6
  15.     rts
  16.  
  17.     .globl _lcpy
  18.     .text
  19. _lcpy:
  20.     link    a6,#0
  21.  
  22.     move.l    8(a6),a0
  23.     move.l    12(a6),a1
  24.     move    16(a6),d0
  25.     bra    L8
  26. L7:
  27.     move.l    (a1)+,(a0)+
  28. L8:
  29.     dbf    d0,L7
  30.  
  31.     unlk    a6
  32.     rts
  33.  
  34.     .data
  35.     .globl    _f_zero
  36. _f_zero:
  37.     .dc.l    0
  38.     .globl    _f_ten
  39. _f_ten:
  40.     .dc.l    $a0000044
  41.     .globl    _f_tenth
  42. _f_tenth:
  43.     .dc.l    $cccccd3d
  44.     .globl    _f_e10
  45. _f_e10:
  46.     .dc.l    $9502f962
  47.     .globl    _f_em10
  48. _f_em10:
  49.     .dc.l    $dbe6ff1f
  50.